home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinXP Error Reporting 1.xpl < prev    next >
Text File  |  2002-03-31  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="System\Crash Control"
  5. "NAME"="Windows Error Reporting"
  6. "VERSION"="1.00"
  7. "OSVERSION"="000001"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Allow crash reports to be sent to Microsoft"
  10. "TEXT 2"="Display a warning when a program crashes"
  11. "DESCRIPTION 1"="By default, Windows has enabled the feature "Error Reporting". In case that an application "crashes", Windows will ask the user if it's okay to send the information about this crash to Microsoft."
  12. "DESCRIPTION 2"="Basically, this is a good feature, since it allows Microsoft to analyze what was going wrong with the application and provide an bug-fix."
  13. "DESCRIPTION 3"="The problem is, that there is NO difference for this feature between the program code and the data of the document you have loaded with the crashed application. For example, if WordPad crashes and you were editing a letter with it as it crashes, it is posswible that parts of this document are sent to Microsoft inside the crash report."
  14. "DESCRIPTION 4"="If you want to be 100% sure that no personal data from you is transmitted, we suggest that you deactivate this option."
  15. "DESCRIPTION 5"="To restore the Windows default behavior, activate both fields. It can also be controlled by using your Control Panel -> System -> Extended Tab -> Error Reporting."
  16. "DESCRIPTION 6"="Note: These are system wide settings, they apply to all users on this computer." 
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com/"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="thanks to http://www2.cajun.net/~theriots/blk/xp_reg_edits.htm"
  21.  
  22.  
  23.  
  24. sV1="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport" 'DW
  25. sV2="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\ShowUI" 'DW
  26.  
  27.  
  28. Sub Plugin_Initialize 
  29.  i=RegReadValue(sV1)
  30.  if i=1 then SetUIElement 1,true 
  31.  
  32.  i=RegReadValue(sV2)
  33.  if i=1 then SetUIElement 2,true 
  34.  
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.     Call RegWriteValue(sV1,"1",2)
  44.  else
  45.     Call RegWriteValue(sV1,"0",2)
  46.  end if
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.     Call RegWriteValue(sV2,"1",2)
  51.  else
  52.     Call RegWriteValue(sV2,"0",2)
  53.  end if
  54.  
  55. End Sub
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub
  59.